home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / maximus / cdcar202.zip / SETICON.CMD < prev    next >
OS/2 REXX Batch file  |  1994-06-12  |  1KB  |  49 lines
  1. /* CD Carousel Desktop setup program */
  2.  
  3. '@Echo Off'
  4. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  5. Call SysLoadFuncs
  6. Signal On Failure Name FAILURE
  7. Signal On Halt Name HALT
  8. Signal On Syntax Name SYNTAX
  9.  
  10. Call SysCls
  11. Say 'This program will create an Icon on your Desktop for CD Carousel...'
  12. Say ''
  13.  
  14.  
  15. Say 'Please enter the full drive and pathname of the directory where'
  16. Say '  CD Carousel is installed: '
  17. Pull Directory
  18. If Directory = "" Then call done
  19.  
  20. Say 'Creating program object...'
  21. Title = 'CD Carousel v2.02'
  22. Type = 'WPProgram'
  23. Folder = '<WP_DESKTOP>'
  24. Parms = "MINWIN=DESKTOP;PROGTYPE=PM;EXENAME="Directory"\CDMENU.CMD;STARTUPDIR="Directory";OBJECTID="Directory"\CDCAR;NOPRINT=YES;"
  25. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  26.  
  27. If Result = 1 Then
  28.   Say 'Object created!  Done.'
  29. Else             
  30.   Say 'ERROR: Object not created.'
  31.  
  32. Signal DONE
  33.  
  34. FAILURE:
  35. Say 'REXX failure.'
  36. Signal DONE
  37.  
  38. HALT:
  39. Say 'REXX halt.'
  40. Signal DONE
  41.  
  42. SYNTAX:
  43. Say 'REXX syntax error.'
  44. Signal DONE
  45.  
  46. DONE:
  47. Exit
  48. 
  49.